home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 March / macformat-048.iso / Demos / Musee d'Orsay / ORSAY / DATAOR / CHRO.DXR / 00026.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  597 b   |  27 lines
  1. on exitFrame
  2.   repeat with I = 1 to 50
  3.     set the locV of sprite 1 to the locV of sprite 1 + 5
  4.     if the mouseDown then
  5.       quit()
  6.     end if
  7.     updateStage()
  8.   end repeat
  9.   repeat with I = 1 to 20
  10.     set the locV of sprite 1 to the locV of sprite 1 + 5
  11.     set the locH of sprite 1 to the locH of sprite 1 + 5
  12.     if the mouseDown then
  13.       quit()
  14.     end if
  15.     updateStage()
  16.   end repeat
  17.   repeat with I = 1 to 20
  18.     set the locH of sprite 1 to the locH of sprite 1 + 5
  19.     updateStage()
  20.     if the mouseDown then
  21.       quit()
  22.     end if
  23.   end repeat
  24.   puppetSprite(1, 0)
  25.   wait(1)
  26. end
  27.